package Analytics;
use Campaign;

sub new
{
    my ($class)	= @_;		
    my $self	= {};
    
    $self->{realm_id}	= 0;

    bless $self, 'Analytics';
    return $self;
}

sub GetAnalytics
{
    my ($self)	= @_;

    my $campaigns              = new Campaign();
       $campaigns->{realm_id}  = $self->{realm_id};

    my @all_campaigns          = $campaigns->GetAllCampaigns();

    return @all_campaigns;
}
1;